home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / crtex / ex10.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  308 b   |  19 lines

  1. Program Example10;
  2. uses Crt;
  3.  
  4. { Program to demonstrate the InsLine function. }
  5.  
  6. begin
  7.   ClrScr;
  8.   WriteLn;
  9.   WriteLn('Line 1');
  10.   WriteLn('Line 3');
  11.   WriteLn;
  12.   WriteLn('Oops, forgot Line 2, let''s insert at the cursor postion');
  13.   GotoXY(1,3);
  14.   ReadKey;
  15.   InsLine;
  16.   Write('Line 2');
  17.   GotoXY(1,10);
  18. end.
  19.